home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIMAIL / INTMAIL / receive.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-07  |  8.6 KB  |  255 lines
  1. VERSION 4.00
  2. Begin VB.Form Receive 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00FFFFFF&
  5.    Caption         =   "New Mail"
  6.    ClientHeight    =   4545
  7.    ClientLeft      =   1815
  8.    ClientTop       =   990
  9.    ClientWidth     =   6705
  10.    Height          =   4950
  11.    Icon            =   "Receive.frx":0000
  12.    Left            =   1755
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    ScaleHeight     =   4545
  16.    ScaleWidth      =   6705
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   645
  19.    Width           =   6825
  20.    Begin VB.PictureBox LeftBorder 
  21.       Appearance      =   0  'Flat
  22.       BackColor       =   &H00C0FFFF&
  23.       BorderStyle     =   0  'None
  24.       ForeColor       =   &H80000008&
  25.       Height          =   20000
  26.       Left            =   0
  27.       ScaleHeight     =   19995
  28.       ScaleWidth      =   795
  29.       TabIndex        =   3
  30.       Top             =   0
  31.       Width           =   795
  32.       Begin VB.Image ReplyIcon 
  33.          Height          =   480
  34.          Left            =   150
  35.          MouseIcon       =   "Receive.frx":0442
  36.          MousePointer    =   99  'Custom
  37.          Picture         =   "Receive.frx":0594
  38.          Top             =   495
  39.          Width           =   480
  40.       End
  41.       Begin VB.Label Reply 
  42.          Alignment       =   2  'Center
  43.          BackStyle       =   0  'Transparent
  44.          Caption         =   "Reply"
  45.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.             Name            =   "Comic Sans MS"
  47.             Size            =   9.75
  48.             Charset         =   0
  49.             Weight          =   400
  50.             Underline       =   0   'False
  51.             Italic          =   0   'False
  52.             Strikethrough   =   0   'False
  53.          EndProperty
  54.          Height          =   345
  55.          Left            =   75
  56.          MouseIcon       =   "Receive.frx":09D6
  57.          MousePointer    =   99  'Custom
  58.          TabIndex        =   5
  59.          Top             =   120
  60.          Width           =   600
  61.          WordWrap        =   -1  'True
  62.       End
  63.       Begin VB.Label ExitButton 
  64.          Alignment       =   2  'Center
  65.          BackStyle       =   0  'Transparent
  66.          Caption         =   "Exit"
  67.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.             Name            =   "Comic Sans MS"
  69.             Size            =   9.75
  70.             Charset         =   0
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   345
  77.          Left            =   75
  78.          MouseIcon       =   "Receive.frx":0B28
  79.          MousePointer    =   99  'Custom
  80.          TabIndex        =   4
  81.          Top             =   4170
  82.          Width           =   600
  83.          WordWrap        =   -1  'True
  84.       End
  85.    End
  86.    Begin VB.TextBox MessageText 
  87.       BackColor       =   &H00FFFFFF&
  88.       BorderStyle     =   0  'None
  89.       Height          =   3075
  90.       Left            =   900
  91.       MultiLine       =   -1  'True
  92.       ScrollBars      =   2  'Vertical
  93.       TabIndex        =   1
  94.       Top             =   1095
  95.       Width           =   5805
  96.    End
  97.    Begin VB.Label Footer 
  98.       Alignment       =   2  'Center
  99.       AutoSize        =   -1  'True
  100.       BackStyle       =   0  'Transparent
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "Arial"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       ForeColor       =   &H00000000&
  111.       Height          =   210
  112.       Left            =   870
  113.       TabIndex        =   2
  114.       Top             =   4260
  115.       Width           =   5865
  116.       WordWrap        =   -1  'True
  117.    End
  118.    Begin VB.Label HeaderLabel 
  119.       Appearance      =   0  'Flat
  120.       BackColor       =   &H80000005&
  121.       BackStyle       =   0  'Transparent
  122.       ForeColor       =   &H80000008&
  123.       Height          =   810
  124.       Left            =   900
  125.       TabIndex        =   0
  126.       Top             =   120
  127.       Width           =   5805
  128.       WordWrap        =   -1  'True
  129.    End
  130.    Begin VB.Line lneBorder 
  131.       BorderColor     =   &H00808000&
  132.       BorderWidth     =   2
  133.       Index           =   0
  134.       X1              =   810
  135.       X2              =   810
  136.       Y1              =   0
  137.       Y2              =   20000
  138.    End
  139.    Begin VB.Line lneBorder 
  140.       BorderColor     =   &H00000000&
  141.       Index           =   2
  142.       X1              =   825
  143.       X2              =   825
  144.       Y1              =   0
  145.       Y2              =   20000
  146.    End
  147.    Begin VB.Line BottomBorder 
  148.       BorderColor     =   &H00808000&
  149.       X1              =   825
  150.       X2              =   20000
  151.       Y1              =   4200
  152.       Y2              =   4200
  153.    End
  154.    Begin VB.Line TopBorder 
  155.       BorderColor     =   &H00808000&
  156.       X1              =   825
  157.       X2              =   20000
  158.       Y1              =   1050
  159.       Y2              =   1050
  160.    End
  161.    Begin VB.Menu mnuFile 
  162.       Caption         =   "&File"
  163.       Visible         =   0   'False
  164.       Begin VB.Menu mnuFileClose 
  165.          Caption         =   "Close"
  166.       End
  167.    End
  168. Attribute VB_Name = "Receive"
  169. Attribute VB_Creatable = False
  170. Attribute VB_Exposed = False
  171. Option Explicit
  172. '<Public>---------------------------------------------
  173. Public FormNumber       As Integer
  174. '---- message info, some is from POP control, some is parsed
  175. Public MessageBody      As String
  176. Public MessageDate      As String
  177. Public MessageFrom      As String
  178. Public MessageHeader    As String
  179. Public MessageSent      As String
  180. Public MessageSubject   As String
  181. Public MessageTo        As String
  182. '</Public>--------------------------------------------
  183. Private Sub ExitButton_Click()
  184.     Unload Me
  185. End Sub
  186. Private Sub Form_Load()
  187.     'Call GetWindowState(Me, "InternetMailReceiveWindow")
  188. End Sub
  189. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  190.     'Call SetWindowState(Me, "InternetMailReceiveWindow")
  191.     Call ControlPanel.DestroyReceiveForm(FormNumber)
  192. End Sub
  193. Private Sub Form_Resize()
  194.     'Dim TextBoxWidth    As Integer
  195.     On Error Resume Next
  196.     MessageText.Move MessageText.left, MessageText.Top, Me.ScaleWidth - MessageText.left, (Me.ScaleHeight - MessageText.Top - 360)
  197.     BottomBorder.Y1 = Me.ScaleHeight - 340
  198.     BottomBorder.Y2 = BottomBorder.Y1
  199.     HeaderLabel.Width = MessageText.Width
  200.     Footer.Move Footer.left, Me.ScaleHeight - 270, MessageText.Width
  201.     ExitButton.Top = Me.ScaleHeight - 340
  202. End Sub
  203. Private Sub mnuFileClose_Click()
  204.     Unload Me
  205. End Sub
  206. Public Sub ShowMessage()
  207.     HeaderLabel = ParseHeader()
  208.     MessageText = MessageBody
  209. End Sub
  210. Private Function ParseHeader() As String
  211.     Dim CharPos As Integer
  212.     Dim Header  As String
  213.     Dim Temp    As String
  214.     Temp = MessageHeader
  215.     '---- may be caused by bad data, unexpected format
  216.     On Error GoTo BadHeader
  217.     '---- locate the to 'From' line
  218.     CharPos = InStr(Temp, "From: ")
  219.     If (CharPos > 0) Then
  220.         Temp = Mid(Temp, CharPos)
  221.         '---- parse the 'From' line
  222.         CharPos = InStr(Temp, vbCrLf)
  223.         MessageFrom = Mid(Temp, Len("From: ") + 1, CharPos - 1 - Len("From: "))
  224.         Header = "From: " & MessageFrom & vbCrLf
  225.     End If
  226.     '---- place footer information
  227.     Footer = Mid(Header, Len("From: ") + 1, Len(Header) - Len("From: ") - 2)
  228.     '---- locate the 'To' line
  229.     CharPos = InStr(Temp, "To: ")
  230.     If (CharPos > 0) Then
  231.         Temp = Mid(Temp, CharPos)
  232.         '---- parse the 'To' line
  233.         CharPos = InStr(Temp, vbCrLf)
  234.         Header = Header & left(Temp, CharPos - 1) & vbCrLf
  235.     End If
  236.     '---- add the information from the POP control
  237.     Header = Header & "Date: " & MessageDate & vbCrLf
  238.     Header = Header & "Subject: " & MessageSubject
  239.     ParseHeader = Header
  240.     Exit Function
  241. BadHeader:
  242.     ParseHeader = ""
  243.     Exit Function
  244. End Function
  245. Private Sub Reply_Click()
  246.     Call ControlPanel.ReplyToMessage(Me)
  247. End Sub
  248. Private Sub ReplyIcon_Click()
  249.     Call ControlPanel.ReplyToMessage(Me)
  250. End Sub
  251. Public Sub ShowOffset(OffsetLeft As Integer, OffsetTop As Integer)
  252.     '---- add additional offset
  253.     Me.Move OffsetLeft, OffsetTop
  254. End Sub
  255.